home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / strassoc.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  6KB  |  217 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 15 "strassoc.d"
  17. #include <string.h> 
  18. #include <math.h> 
  19. #include "memalloc.h" 
  20.  
  21. #define    CLASS    StringAssociation_c
  22. #define    ivType    StringAssociation_iv_t
  23.  
  24. #include "generics.h"
  25.  
  26. object    StringAssociation_c;
  27.  
  28.  
  29. #line 30 "strassoc.c"
  30. typedef struct  _StringAssociation_iv_t  {
  31.     char * iKey;
  32.     object iValue;
  33. }    StringAssociation_iv_t;
  34.  
  35.  
  36.  
  37. #line 25 "strassoc.d"
  38. cmeth objrtn StringAssociation_cm_gNewWithStrObj(object self, char *key, object value)
  39. { 
  40.     int len = key ? strlen(key) : 0; 
  41.     object assoc; 
  42.     ivType *iv; 
  43.  
  44.     ChkArgNul(value, 3); 
  45.     assoc = oSuper(StringAssociation_c, gNew, self)(self); 
  46.     iv = ivPtr(assoc); 
  47.     iv->iKey = (char *) MA_malloc(len+1, &iv->iKey); 
  48.     strcpy(iv->iKey, key ? key : ""); 
  49.     iv->iValue = value; 
  50.     return assoc; 
  51. } 
  52.  
  53. imeth objrtn StringAssociation_im_gDeepCopy(object self)
  54. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  55.     object nobj; 
  56.     ivType *iv2; 
  57.  
  58.     nobj = oSuper(StringAssociation_c, gDeepCopy, self)(self); 
  59.     iv2 = ivPtr(nobj); 
  60.     if (iv->iKey) { 
  61.         iv2->iKey = (char *) MA_malloc(strlen(iv->iKey)+1, &iv2->iKey); 
  62.         strcpy(iv2->iKey, iv->iKey); 
  63.     } 
  64.     if (iv->iValue) 
  65.         iv2->iValue = gDeepCopy(iv->iValue); 
  66.     return nobj; 
  67. } 
  68.  
  69. imeth objrtn StringAssociation_im_gCopy(object self)
  70. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  71.     object nobj; 
  72.     ivType *iv2; 
  73.  
  74.     nobj = oSuper(StringAssociation_c, gCopy, self)(self); 
  75.     iv2 = ivPtr(nobj); 
  76.     if (iv->iKey) { 
  77.         iv2->iKey = (char *) MA_malloc(strlen(iv->iKey)+1, &iv2->iKey); 
  78.         strcpy(iv2->iKey, iv->iKey); 
  79.     } 
  80.     iv2->iValue = iv->iValue; 
  81.     return nobj; 
  82. } 
  83.  
  84. imeth objrtn StringAssociation_im_gValue(object self)
  85. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  86.     return iv->iValue; 
  87. } 
  88.  
  89. imeth objrtn StringAssociation_im_gChangeValue(object self, object value)
  90. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  91.     object ret; 
  92.     ChkArgNul(value, 2); 
  93.     ret = iv->iValue; 
  94.     iv->iValue = value; 
  95.     return ret; 
  96. } 
  97.  
  98. imeth char * StringAssociation_im_gStringKey(object self)
  99. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  100.     return iv->iKey; 
  101. } 
  102.  
  103. imeth objrtn StringAssociation_im_gChangeStringKey(object self, char *key)
  104. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  105.     int len = key ? strlen(key) : 0; 
  106.  
  107.     if (iv->iKey) { 
  108.         if (len > (int) strlen(iv->iKey)) 
  109.             iv->iKey = (char *) MA_realloc(iv->iKey, len+1); 
  110.     } else 
  111.         iv->iKey = (char *) MA_malloc(len+1, &iv->iKey); 
  112.     strcpy(iv->iKey, key ? key : ""); 
  113.     return self; 
  114. } 
  115.  
  116. imeth objrtn StringAssociation_im_gDispose(object self)
  117. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  118.     if (iv->iKey) 
  119.         MA_free(iv->iKey); 
  120.     return oSuper(StringAssociation_c, gDispose, self)(self); 
  121. } 
  122.  
  123. imeth objrtn StringAssociation_im_gDeepDispose(object self)
  124. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  125.     if (iv->iKey) 
  126.         MA_free(iv->iKey); 
  127.     if (iv->iValue) 
  128.         gDeepDispose(iv->iValue); 
  129.     return oSuper(StringAssociation_c, gDeepDispose, self)(self); 
  130. } 
  131.  
  132. imeth objrtn StringAssociation_im_gStringRepValue(object self)
  133. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  134.     object s, t; 
  135.  
  136.     t = iv->iValue ? gStringRepValue(iv->iValue) : (object) NULL; 
  137.     s = vSprintf(String, "( \"%s\", ", iv->iKey ? iv->iKey : "(null)"); 
  138.     vBuild(s, NULL, t ? (char *) t : "(null)", " )", NULL); 
  139.     if (t) 
  140.         gDispose(t); 
  141.     return s; 
  142. } 
  143.  
  144. imeth int StringAssociation_im_gHash(object self)
  145. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  146.     register char c = 'a'; 
  147.     char *s = iv->iKey; 
  148.     double t; 
  149.     register unsigned short k=0; 
  150.  
  151.     if (s) 
  152.         while (*s) 
  153.         k += *s++ ^ c++; 
  154.     t = .6125423371 * k; 
  155.     t = t < 0.0 ? -t : t; 
  156.     return (int) (BIG_INT * (t - floor(t))); 
  157. } 
  158.  
  159. imeth int StringAssociation_im_gCompare(object self, object arg)
  160. { StringAssociation_iv_t *iv = GetIVs(StringAssociation, self);
  161.     ChkArg(arg, 2); 
  162.     return strcmp(iv->iKey?iv->iKey:"", gStringKey(arg)); 
  163. } 
  164.  
  165.  
  166. #line 167 "strassoc.c"
  167.  
  168. objrtn    StringAssociation_initialize(void)
  169. {
  170.     static  CRITICALSECTION  cs;
  171.     static  int volatile once = 0;
  172.  
  173.     ENTERCRITICALSECTION(_CI_CS_);
  174.     if (!once) {
  175.         INITIALIZECRITICALSECTION(cs);
  176.         once = 1;
  177.     }
  178.     LEAVECRITICALSECTION(_CI_CS_);
  179.  
  180.     ENTERCRITICALSECTION(cs);
  181.  
  182.     if (StringAssociation_c) {
  183.         LEAVECRITICALSECTION(cs);
  184.         return StringAssociation_c;
  185.     }
  186.     INHIBIT_THREADER;
  187.     Association_initialize();
  188.     if (StringAssociation_c)  {
  189.         ENABLE_THREADER;
  190.         LEAVECRITICALSECTION(cs);
  191.         return StringAssociation_c;
  192.     }
  193.     StringAssociation_c = gNewClass(Class, "StringAssociation", sizeof(StringAssociation_iv_t), 0, Association, END);
  194.     cMethodFor(StringAssociation, gNewWithStrObj, StringAssociation_cm_gNewWithStrObj);
  195.     iMethodFor(StringAssociation, gCompare, StringAssociation_im_gCompare);
  196.     iMethodFor(StringAssociation, gStringKey, StringAssociation_im_gStringKey);
  197.     iMethodFor(StringAssociation, gDispose, StringAssociation_im_gDispose);
  198.     iMethodFor(StringAssociation, gChangeStringKey, StringAssociation_im_gChangeStringKey);
  199.     iMethodFor(StringAssociation, gValue, StringAssociation_im_gValue);
  200.     iMethodFor(StringAssociation, gGCDispose, StringAssociation_im_gDispose);
  201.     iMethodFor(StringAssociation, gStringRepValue, StringAssociation_im_gStringRepValue);
  202.     iMethodFor(StringAssociation, gHash, StringAssociation_im_gHash);
  203.     iMethodFor(StringAssociation, gChangeValue, StringAssociation_im_gChangeValue);
  204.     iMethodFor(StringAssociation, gCopy, StringAssociation_im_gCopy);
  205.     iMethodFor(StringAssociation, gDeepDispose, StringAssociation_im_gDeepDispose);
  206.     iMethodFor(StringAssociation, gDeepCopy, StringAssociation_im_gDeepCopy);
  207.  
  208.     ENABLE_THREADER;
  209.  
  210.     LEAVECRITICALSECTION(cs);
  211.  
  212.     return StringAssociation_c;
  213. }
  214.  
  215.  
  216.  
  217.